Фрагмент
while not eof(f) do
begin
read(f,a);
if a<0 then write(g,a,' ');
end;
Похожие записи/страницы:
- Дан файл вещественных чисел содержащий ненулевую часть верхнетреугольной матрицы по строкам.Создать новый файл…
- Дан текстовый файл, в котором числа положительные и отрицательные. Программа должна записать положительные числа…
- Используя типизированные файлы. Создать файл,компоненты которого случайные числа. Подсчитать сколько из них…
- Пусть имеется текстовый файл, который содержит несколько целых чисел. Открыть этот текстовый файл и каждое из…
- Дан текстовый файл,содержащий текст на русском языке. Выбрать из него только те символы, которые встречаются в…
- Заменить четные элементы файла,созданого в задании(создать файл,состоящий из N целых чисел.Вывести содержимое…
- Шифр Цезаря. Этот метод основан на замене каждой буквы шифруемого текста на другую путем смещения в алфавите от…
- Составить программу, которая создает текстовый файл, состоящий из N значений. Прочитать файл и определить есть…